home *** CD-ROM | disk | FTP | other *** search
/ Private: Geographic / Private: Geographic.iso / INTROGEO.DXR / 00004.ls < prev    next >
Encoding:
Text File  |  1998-03-26  |  1.7 KB  |  78 lines
  1. on prepareMovie
  2.   global gmalpassword, gsigno
  3.   if the machineType = 256 then
  4.     set gsigno to "\"
  5.   else
  6.     set gsigno to ":"
  7.   end if
  8.   set the fileName of member 7 to the pathName & "MEDIA" & gsigno & "DEUNIDO.AVI"
  9.   set the fileName of member 11 to the pathName & "MEDIA" & gsigno & "PRIVATE.AVI"
  10. end
  11.  
  12. on startMovie
  13.   global gmalpassword, gsigno
  14.   set gmalpassword to 0
  15.   set the keyDownScript to "teclas"
  16.   put " " into field "password"
  17.   put " " into field "texto salida"
  18.   set the visible of sprite 12 to 0
  19.   set the visible of sprite 3 to 0
  20. end
  21.  
  22. on teclas
  23.   global gmalpassword
  24.   if ((the key = RETURN) and (the frame = 43)) or ((the key = ENTER) and (the frame = 43)) then
  25.     case the text of field "password" of
  26.       "15in6":
  27.         ingles()
  28.       "24fr6":
  29.         frances()
  30.       "38de1":
  31.         aleman()
  32.       "64sp0":
  33.         castellano()
  34.       otherwise:
  35.         set gmalpassword to gmalpassword + 1
  36.         if gmalpassword = 3 then
  37.           quit()
  38.         end if
  39.         put " " into field "password"
  40.         hilite line 1 of field "password"
  41.         dontPassEvent()
  42.     end case
  43.   end if
  44. end
  45.  
  46. on ingles
  47.   global gidioma
  48.   set gidioma to "EN"
  49.   go(the frame + 2)
  50. end
  51.  
  52. on frances
  53.   global gidioma
  54.   set gidioma to "FR"
  55.   go(the frame + 2)
  56. end
  57.  
  58. on aleman
  59.   global gidioma
  60.   set gidioma to "DE"
  61.   go(the frame + 2)
  62. end
  63.  
  64. on castellano
  65.   global gidioma
  66.   set gidioma to "ES"
  67.   set the visible of sprite 3 to 1
  68.   go(the frame + 1)
  69. end
  70.  
  71. on idle
  72.   if the number of chars in field "password" > 5 then
  73.     delete char 5 to the number of chars in field "password" of field "password"
  74.     set the selStart to 4
  75.   end if
  76.   put the text of field "password" into field "texto salida"
  77. end
  78.